object Registro_usuarios: TRegistro_usuarios
  Left = 0
  Top = 0
  Caption = 'Mantenimiento de Usuarios'
  ClientHeight = 548
  ClientWidth = 469
  Color = clBtnFace
  OldCreateOrder = False
  MonitoredKeys.Keys = <>
  PixelsPerInch = 96
  TextHeight = 13
  object BNuevo: TUniButton
    Left = 57
    Top = 78
    Width = 90
    Height = 25
    Caption = 'Nuevo'
    TabOrder = 0
    OnClick = BNuevoClick
  end
  object BGuardar: TUniButton
    Left = 95
    Top = 364
    Width = 75
    Height = 25
    Caption = 'Guardar'
    TabOrder = 1
    OnClick = BGuardarClick
  end
  object BCancelar: TUniButton
    Left = 262
    Top = 364
    Width = 75
    Height = 25
    Caption = 'Cancelar'
    TabOrder = 2
    OnClick = BCancelarClick
  end
  object BEditar: TUniButton
    Left = 166
    Top = 78
    Width = 90
    Height = 25
    Caption = 'Editar'
    TabOrder = 3
    OnClick = BEditarClick
  end
  object BBorrar: TUniButton
    Left = 274
    Top = 78
    Width = 97
    Height = 25
    Caption = 'Borrar'
    TabOrder = 4
    OnClick = BBorrarClick
  end
  object BActualizar: TUniButton
    Left = 176
    Top = 364
    Width = 80
    Height = 25
    Caption = 'Actualizar'
    TabOrder = 5
    OnClick = BActualizarClick
  end
  object BPrimero: TUniButton
    Left = 8
    Top = 524
    Width = 98
    Height = 16
    Caption = 'Primero'
    TabOrder = 6
    OnClick = BPrimeroClick
  end
  object BAnterior: TUniButton
    Left = 112
    Top = 524
    Width = 106
    Height = 16
    Caption = 'Anterior'
    TabOrder = 7
    OnClick = BAnteriorClick
  end
  object BSiguiente: TUniButton
    Left = 224
    Top = 524
    Width = 106
    Height = 16
    Caption = 'Siguiente'
    TabOrder = 8
    OnClick = BSiguienteClick
  end
  object BUltimo: TUniButton
    Left = 336
    Top = 524
    Width = 121
    Height = 16
    Caption = 'Ultimo'
    TabOrder = 9
    OnClick = BUltimoClick
  end
  object LLogin: TUniLabel
    Left = 16
    Top = 136
    Width = 90
    Height = 13
    Caption = 'Nombre de usuario'
    TabOrder = 10
  end
  object LClave: TUniLabel
    Left = 16
    Top = 168
    Width = 27
    Height = 13
    Caption = 'Clave'
    TabOrder = 11
  end
  object LCod_usu: TUniLabel
    Left = 16
    Top = 200
    Width = 86
    Height = 13
    Caption = 'Codigo de usuario'
    TabOrder = 12
  end
  object LCaduca: TUniLabel
    Left = 16
    Top = 232
    Width = 36
    Height = 13
    Caption = 'Caduca'
    TabOrder = 13
  end
  object LPrivilegio: TUniLabel
    Left = 16
    Top = 264
    Width = 42
    Height = 13
    Caption = 'Privilegio'
    TabOrder = 14
  end
  object LFecha_carga: TUniLabel
    Left = 16
    Top = 296
    Width = 85
    Height = 13
    Caption = 'Fecha de la carga'
    TabOrder = 15
  end
  object LOperador: TUniLabel
    Left = 16
    Top = 328
    Width = 46
    Height = 13
    Caption = 'Operador'
    TabOrder = 16
  end
  object UniDBEdit1: TUniDBEdit
    Left = 176
    Top = 136
    Width = 241
    Height = 22
    DataField = 'LOGIN'
    DataSource = DSReg
    PasswordChar = #0
    CharCase = ecNormal
    MaxLength = 0
    CharEOL = #0
    TabOrder = 17
    Color = clWindow
  end
  object UniDBEdit2: TUniDBEdit
    Left = 176
    Top = 168
    Width = 241
    Height = 22
    DataField = 'CLAVE'
    DataSource = DSReg
    PasswordChar = #0
    CharCase = ecNormal
    MaxLength = 0
    CharEOL = #0
    TabOrder = 18
    Color = clWindow
  end
  object UniDBEdit3: TUniDBEdit
    Left = 176
    Top = 200
    Width = 241
    Height = 22
    DataField = 'COD_GENERAL_USU'
    DataSource = DSReg
    PasswordChar = #0
    CharCase = ecNormal
    MaxLength = 0
    CharEOL = #0
    TabOrder = 19
    Color = clWindow
  end
  object UniDBEdit7: TUniDBEdit
    Left = 176
    Top = 328
    Width = 241
    Height = 22
    DataField = 'OPERADOR'
    DataSource = DSReg
    PasswordChar = #0
    CharCase = ecNormal
    MaxLength = 0
    CharEOL = #0
    TabOrder = 20
    Color = clWindow
  end
  object UniDBDateTimePicker1: TUniDBDateTimePicker
    Left = 176
    Top = 228
    Width = 241
    Height = 21
    DateTime = 41353.000000000000000000
    DateFormat = 'dd/MM/yyyy'
    TimeFormat = 'HH:mm:ss'
    Kind = tUniDate
    FirstDayOfWeek = dowLocaleDefault
    TabOrder = 21
    ParentColor = False
    Color = clWhite
    DataField = 'CADUCA'
    DataSource = DSReg
  end
  object UniDBDateTimePicker2: TUniDBDateTimePicker
    Left = 176
    Top = 292
    Width = 241
    Height = 21
    DateFormat = 'dd/MM/yyyy'
    TimeFormat = 'HH:mm:ss'
    Kind = tUniDate
    FirstDayOfWeek = dowLocaleDefault
    TabOrder = 22
    ParentColor = False
    Color = clWhite
    DataField = 'FECHA_CARGA'
    DataSource = DSReg
  end
  object UniDBComboBox1: TUniDBComboBox
    Left = 176
    Top = 255
    Width = 241
    Height = 21
    DataField = 'PERFIL_PRIVILEGIO'
    DataSource = DSReg
    Style = csDropDown
    MaxLength = 0
    ItemIndex = -1
    TabOrder = 23
  end
  object UniDBGrid1: TUniDBGrid
    Left = 8
    Top = 416
    Width = 449
    Height = 88
    DataSource = DSReg
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    WebOptions.LoadMaskMsg = 'Please wait...'
    StripeRows = False
    TabOrder = 24
  end
  object UniLabel1: TUniLabel
    Left = 57
    Top = 16
    Width = 320
    Height = 25
    Alignment = taCenter
    Caption = 'Administraci'#243'n de Usuarios'
    ParentFont = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -21
    Font.Name = 'Verdana'
    Font.Style = [fsBold]
    TabOrder = 25
  end
  object SQLCReg: TSQLConnection
    ConnectionName = 'FBConnection'
    DriverName = 'Firebird'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbxfb.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverUnit=DBXFirebird'
      
        'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver150.' +
        'bpl'
      
        'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
        'nd.Data.DbxCommonDriver,Version=15.0.0.0,Culture=neutral,PublicK' +
        'eyToken=91d62ebb5b0d1b1b'
      
        'MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFire' +
        'birdDriver150.bpl'
      
        'MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMetaDataCommandF' +
        'actory,Borland.Data.DbxFirebirdDriver,Version=15.0.0.0,Culture=n' +
        'eutral,PublicKeyToken=91d62ebb5b0d1b1b'
      'GetDriverFunc=getSQLDriverINTERBASE'
      'LibraryName=dbxfb.dll'
      'VendorLib=fbclient.DLL'
      'Role=RoleName'
      'MaxBlobSize=-1'
      'TrimChar=False'
      'DriverName=Firebird'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=ivancho'
      'ServerCharSet='
      'SQLDialect=3'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'IsolationLevel=ReadCommitted'
      'Trim Char=False'
      'Database=localhost:C:\PROYECTO2\PRUEBA\turistik.fdb')
    VendorLib = 'fbclient.DLL'
    Connected = True
    Left = 16
    Top = 48
  end
  object SQLQReg: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM PERSONAS_USUARIOS')
    SQLConnection = SQLCReg
    Left = 72
    Top = 48
    object SQLQRegLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
    end
    object SQLQRegCOD_GENERAL_USU: TLargeintField
      FieldName = 'COD_GENERAL_USU'
      Required = True
    end
    object SQLQRegCLAVE: TStringField
      FieldName = 'CLAVE'
      Required = True
    end
    object SQLQRegCADUCA: TDateField
      FieldName = 'CADUCA'
    end
    object SQLQRegPERFIL_PRIVILEGIO: TStringField
      FieldName = 'PERFIL_PRIVILEGIO'
      Size = 30
    end
    object SQLQRegFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
    end
    object SQLQRegOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 100
    end
  end
  object CDSReg: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPReg'
    Left = 128
    Top = 48
    object CDSRegLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
    end
    object CDSRegCOD_GENERAL_USU: TLargeintField
      FieldName = 'COD_GENERAL_USU'
      Required = True
    end
    object CDSRegCLAVE: TStringField
      FieldName = 'CLAVE'
      Required = True
    end
    object CDSRegCADUCA: TDateField
      FieldName = 'CADUCA'
    end
    object CDSRegPERFIL_PRIVILEGIO: TStringField
      FieldName = 'PERFIL_PRIVILEGIO'
      Size = 30
    end
    object CDSRegFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
    end
    object CDSRegOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 100
    end
  end
  object DSPReg: TDataSetProvider
    DataSet = SQLQReg
    Left = 240
    Top = 48
  end
  object DSReg: TDataSource
    DataSet = CDSReg
    Left = 184
    Top = 48
  end
end
